home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / info diashow-gen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  58 lines
  1. 1 goto10
  2. 2 print"    >>> [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206] ! <<<":return
  3. 3 poke198,0:wait198,1:poke198,0
  4. 4 fort=4to22:poke781,t:sys59903:next:print"":return
  5. 10 poke53280,0:poke53281,0:poke646,7:printchr$(8);chr$(14);"[147]";
  6. 19 print"[150]                                        ";
  7. 20 print"     [153][196]iashow-[199]enerator-[201]nfo  [[212][195]][150]       ";
  8. 21 print"                                        "
  9. 30 print"[155][196]er [196][201][193][211][200][207][215]-[199][197][206][197][210][193][212][207][210] ist [196][193][211] [208]rogramm,"
  10. 40 print"mit dem [196]u aus einer [196]isk mit":print"           [203][207][193][204][193]-[208][201][195][212][213][210][197][211]"
  11. 50 print"eine '[196][201][193][211][200][207][215]-[196][201][211][203]' machen kannst."
  12. 60 print"[196]a die [194]edienung wirklich [197][201][206][198][193][195][200][211][212] ist,"
  13. 70 print"gibt's auch nur 'n ganz kleines [194][193][211][201][195]-":print"[201]nfo -"
  14. 80 print"- ganz ohne [204][207][199][207], [211][207][213][206][196] etc..."
  15. 90 gosub2:gosub3
  16. 100 print"[206]ach dem [204]aden und [211]tarten des [208]rogramms"
  17. 110 print"erscheint eine [193]rt '[201]ntro-[194]ild'."
  18. 120 print"[200]ier wirst [196]u durch einen kleinen":print"  '[211]ound-[197]ffekt'"
  19. 130 print"darauf aufmerksam gemacht, dass das":print"[208]rogramm bereit ist."
  20. 140 print"[202]etzt nimmst [196]u die [196]isk mit dem [208]roggi"
  21. 150 print"aus dem [204]aufwerk und legst die [196]isk"
  22. 160 print"mit den [203][207][193][204][193]-[208]ictures ein."
  23. 170 gosub3
  24. 180 print"[215]enn [196]u diese [211]chwerstarbeit erfolgreich"
  25. 190 print"bewaeltigt hast, drueckst [196]u  <[211][208][193][195][197]>."
  26. 200 print"[202]etzt wird vom [208]rogramm das [196][201][210][197][195][212][207][210][217]"
  27. 210 print"eingelesen und angezeigt."
  28. 220 print"[197]rscheint ein [196]irectory-[197]intrag, der"
  29. 230 print"[203][197][201][206] [203][207][193][204][193]-[194][201][204][196] ist (oder ein [194]ild, das"
  30. 240 print"[196]u nicht in der [196]ia-[211]how haben willst),"
  31. 250 print"so drueckst [196]u entschieden '[206]'."
  32. 260 gosub3
  33. 270 print"[193]nsonsten drueckst [196]u '[217]' (fuer 'ja').
  34. 280 [153]"atnuf diese atnrt 'arbeitest' str$u str$ich"
  35. 290 [153]"durch das str$irectory..."
  36. 300 [153]"(NULL)ind alle str$ir.-valintraege bearbeitet,"
  37. 310 [153]"springt das (NULL)rogramm zurueck in's":[153]" peekcloseatnclose(NULL)closeright$closelen."
  38. 320 [141]3
  39. 330 [153]"mid$etzt kannst str$u mit"
  40. 340 [153]" (NULL)atn(NULL)val 'str$right$atn-(NULL)left$(NULL)(NULL)',8,1"
  41. 350 [153]"(natuerlich kannst str$u jeden str$ir belie-"
  42. 360 [153]"benden (NULL)amen anstatt str$right$atn-(NULL)left$(NULL)(NULL) waehlen..)
  43. 370 print"das [196][201][193]-[211][200][207][215]-[208]rogramm auf der [196]isk":print"[211][193][214][197]n."
  44. 380 gosub3
  45. 390 print"[215]enn [196]u dann von der [196]isk das [208]rogramm"
  46. 400 print"laedtst und mit '[210][213][206]' startest,"
  47. 405 print"werden die einzelnen [194]ilder angezeigt."
  48. 410 print"[202]eweils nach [212]astendruck folgt das"          "
  49. 420 [153]"naechste peekild."
  50. 430 [153]"(NULL)ind alle peekilder durch, beginnt die"
  51. 440 [153]"'(NULL)left$(NULL)(NULL)' von vorne..."
  52. 450 [141]3
  53. 460 [153]"   str$closeatnclose(NULL)close  (NULL)closeatnclose(NULL)    atnclose(NULL)close(NULL)closevalclose(NULL)close!"
  54. 470 [129]x[178]1[164]1000:[130]:[153]"(NULL)nd nun viel (NULL)pass beim (NULL)usammen-"
  55. 480 [153]"stellen str$einer eigenen str$right$atn-(NULL)left$(NULL)(NULL)(NULL)!!!"
  56. 490 [153]"       (NULL)closeright$closechr$closevalclose(NULL)close- lenclose(NULL)closevalclose(NULL)"
  57. 500 [151]781,23:[158]59903:[128]
  58.